home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Games Extra 1996 September
/
Amiga Games Extra CD-ROM 9-1996.iso
/
userbox
/
publicdomain
/
easyprint_pch
/
install
< prev
next >
Wrap
Text File
|
1996-07-05
|
7KB
|
159 lines
;
; Script di installazione per EasyPrint 2.24 (4 lug 1996)
;
(if (= @language "italiano")
(
(message
(cat "\n\n\nEasyPrint, script di upgrade.\n"
"Questa procedura installa l' ultima versione di EasyPrint sul vostro Amiga.\n\n"
"(C) Copyright 1995-1996 Andrea Latina."
))
(while (NOT (exists (set eprint-path
(tackon
(askdir
(prompt "Seleziona la directory in cui hai installato EasyPrint")
(help @askdir-help)
(default "SYS:")
) "EasyPrint" ))))
(message "\nATTENZIONE!\n\nEasyPrint non risulta essere installato in questa directory."))
(if (= (exists eprint-path) 2) (set eprint-path (tackon eprint-path "EasyPrint")))
(if (NOT (exists ("%s.key" eprint-path))) (abort "ATTENZIONE!\n\nLa versione installata è solo una DEMO,\nquindi non è possibile applicarvi alcun patch!"))
(set eprint-vers (getversion eprint-path))
(set eprint-ver (/ eprint-vers 65536))
(set eprint-rev (- eprint-vers (* eprint-ver 65536)))
(message ("\nLa versione attualmente insallata è la 2.%ld,\n\napplico il Patch alla versione 2.24 ?" eprint-rev))
(select (- eprint-rev 21)
((run ("Spatch -o%s -pep_patch/from_21_to_24.pch %s" eprint-path eprint-path))
(copyfiles
(prompt "Copio i nuovi files...")
(source "ep_files/")
(help @copyfiles-help)
(dest (pathonly eprint-path))
(all)
(optional force))
(if (exists ("%s_ITA.guide" eprint-path))
(copyfiles
(prompt "Copio la nuova documentazione....")
(source "ep_docs/EasyPrint_ITA.guide")
(help @copyfiles-help)
(dest (pathonly eprint-path))
(optional force))))
((run ("Spatch -o%s -pep_patch/from_22_to_24.pch %s" eprint-path eprint-path))
(copyfiles
(prompt "Copio i nuovi files...")
(source "ep_files/")
(help @copyfiles-help)
(dest (pathonly eprint-path))
(all)
(optional force))
(if (exists ("%s_ITA.guide" eprint-path))
(copyfiles
(prompt "Copio la nuova documentazione....")
(source "ep_docs/EasyPrint_ITA.guide")
(help @copyfiles-help)
(dest (pathonly eprint-path))
(optional force))))
((run ("Spatch -o%s -pep_patch/from_23_to_24.pch %s" eprint-path eprint-path))
(copyfiles
(prompt "Copio i nuovi files...")
(source "ep_files/")
(help @copyfiles-help)
(dest (pathonly eprint-path))
(all)
(optional force))
(if (exists ("%s_ITA.guide" eprint-path))
(copyfiles
(prompt "Copio la nuova documentazione....")
(source "ep_docs/EasyPrint_ITA.guide")
(help @copyfiles-help)
(dest (pathonly eprint-path))
(optional force))))
(message "\nATTENZIONE!\n\nQuesta versione è la piu' recente.")
)
)
(
(message
(cat "\n\n\nEasyPrint, upgrade to latest version.\n"
"This process install the latest version of EasyPrint on your Amiga.\n\n"
"(C) Copyright 1995-1996 Andrea Latina."
))
(while (NOT (exists (set eprint-path
(tackon
(askdir
(prompt "Select directory where have installed EasyPrint")
(help @askdir-help)
(default "SYS:")
) "EasyPrint" ))))
(message "\nWARNING!\n\nEasyPrint isn't installed in this directory!"))
(if (= (exists eprint-path) 2) (set eprint-path (tackon eprint-path "EasyPrint")))
(if (NOT (exists ("%s.key" eprint-path))) (abort "WARNING!\n\nThis version is only a DEMO!!,\nTherefore i can't apply a patch."))
(set eprint-vers (getversion eprint-path))
(set eprint-ver (/ eprint-vers 65536))
(set eprint-rev (- eprint-vers (* eprint-ver 65536)))
(message ("\nVersion installed at present is 2.%ld,\n\napply the Patch to version 2.24 ?" eprint-rev))
(select (- eprint-rev 21)
((run ("Spatch -o%s -pep_patch/from_21_to_24.pch %s" eprint-path eprint-path))
(copyfiles
(prompt "Copying new files...")
(source "ep_files/")
(help @copyfiles-help)
(dest (pathonly eprint-path))
(all)
(optional force))
(if (exists ("%s.guide" eprint-path))
(copyfiles
(prompt "Copying new docs....")
(source "ep_docs/EasyPrint.guide")
(help @copyfiles-help)
(dest (pathonly eprint-path))
(optional force))))
((run ("Spatch -o%s -pep_patch/from_22_to_24.pch %s" eprint-path eprint-path))
(copyfiles
(prompt "Copying new files...")
(source "ep_files/")
(help @copyfiles-help)
(dest (pathonly eprint-path))
(all)
(optional force))
(if (exists ("%s.guide" eprint-path))
(copyfiles
(prompt "Copying new docs....")
(source "ep_docs/EasyPrint.guide")
(help @copyfiles-help)
(dest (pathonly eprint-path))
(optional force))))
((run ("Spatch -o%s -pep_patch/from_23_to_24.pch %s" eprint-path eprint-path))
(copyfiles
(prompt "Copying new files...")
(source "ep_files/")
(help @copyfiles-help)
(dest (pathonly eprint-path))
(all)
(optional force))
(if (exists ("%s.guide" eprint-path))
(copyfiles
(prompt "Copying new docs....")
(source "ep_docs/EasyPrint.guide")
(help @copyfiles-help)
(dest (pathonly eprint-path))
(optional force))))
(message "\nWARNING!\n\nVersion already installed is the latest.")
)
)
) ; if